totSYS

  tVideo = (UnKnown, Mono, CGA, MCGAMono, MCGACol, EGAMono, EGACol, VGA-
  col);
  tDate = (USA,Europe,Japan);

totFAST

  StrScreen = string[255];
  StrVisible = string[80];
  Direction = (Up, Down, Left, Right, Vert, Horiz);
  Coords = record
     X1,Y1,X2,Y2:shortint;
  end;
  ByteCoords = record
     X1,Y1,X2,Y2:byte;
  end;
  ShadowPosition = (UpLeft, UpRight, DownLeft, DownRight);

totLink

  tFileInfo = record
     Filename: string[12];
     Attr: byte;
     Time: longint;
     Size:longint;
     LoadID: longint;
  end;

totList

  tListAction = (Finish, Refresh, None);

totInput

  CharSet = set of char

totIO1

  tCursPos = (CursLeft, CursRight, CursPrev);
  tAction = (None, NextField, PrevField, Finished, Escaped,
             Refresh, Signal, Enter, Help, Stop1, Stop2,
             Stop3, Stop4, Stop5, Stop6, Stop7, Stop8, Stop9);
  StringBut = string[MaxButtonWidth];
  tSignal = record;
     ID: word;
     MsgType: word;
     case word of
     0: (MsgPtr: pointer);
     1: (MsgLong: longint);
     2: (MsgWord: word);
     3: (MsgInt: integer);
     4: (MsgByte: byte);
     5: (MsgChar: char);
  end;

totSTR

  tJust = (JustLeft, JustCenter, JustRight);
  tCase = (Lower, Upper, Proper, Leave);
  tSign = (PlusMinus, Minus, Brackets, DbCr);

  Const

  FmtChars: set of char = ['!','#','@','*'];

totDATE

  tDate = (MMDDYY, MMDDYYY, MMYY, MMYYYY, DDMMYY, DDMMYYYY,
           YYMMDD, YYYYMMDD);



.